home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / progjrn / pj_5_5.arc / EQUATES.PAS < prev    next >
Pascal/Delphi Source File  |  1987-08-07  |  896b  |  27 lines

  1. {  A short program used to generate values used by DEMO.PAS 
  2.    by John J. Newlin, Page 28, Volume 5.5, Programmer's Journal
  3.  
  4. EQUATES.PAS
  5. Copyright 1987 by John J. Newlin, 4060-228 Rosenda Court, San
  6. Diego, CA 92122
  7. }
  8. (*  Program to derive values to be coded into
  9.     KERNEL.ASM as equates.                    *)
  10.  
  11. {$I demo.var}
  12.  
  13. function hex(n : integer) : str4;
  14. var h : array[0..$F] of char;
  15. begin
  16.   h := '0123456789ABCDEF';
  17.   hex := h[hi(n) div 16]+h[hi(n) mod 16]+h[lo(n) div 16]+h[lo(n) mod 16];
  18. end;
  19.  
  20. begin
  21.   writeln('activate          equ ',hex(ofs(activate)),'H');
  22.   writeln('demo_main         equ ',hex(ofs(demo_main)),'H');
  23.   writeln('emm_handle        equ ',hex(ofs(emm_handle)),'H');
  24.   writeln('loaded_in_emm     equ ',hex(ofs(loaded_in_emm)),'H');
  25. end.
  26.  
  27.